          SUBROUTINE (VAL,CST.BN)
** Version# 3.0002[8] - 09/27/2010 - 04:02pm - SMITJR - eclipse
*** V3.0002 Change - Custom Coding CIW979 - 09/27/2010 - SMITJR - eclipse
** Copied from SP DICT.GET.BR.COST Version# 2 - 05/23/2002 - 07:10pm - SHELLYF - develop
*** V3.0001 Change - Custom Coding .. - 09/27/2010 - SMITJR - eclipse

          PN  = FIELD(@ID,'~',1)
          BR  = FIELD(@ID,'~',2)
          AOD = FIELD(@ID,'~',3)
          AOT = ''

          GET.BR.COST.AOD COST,BR,PN,CST.BN,AOD,AOT,PER.QTY,ERR.MSG

          VAL = COST
          RETURN

!SMITJR~09/27/10~16:02
